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Introduction 

How  Is  computer  program  code  conceptually  represented, 
and  how  do  programmers  utilize  conceptual  representations  of 
code  in  the  task  of  program  modification?  In  a  series  of 
experiments,  we  have  set  out  to  explore  these  questions 
using  a  variety  of  psychological  methodologies.  Here  the 
first  of  these  experiments  is  reported. 


Several 

researchers 

have 

argued  recently 

that 

programmers 

utilize  a 

plan-based 

representat ion 

when 

composing  or 

comprehending  program 

code  (Adel  son. 

1981 ; 

Bonar  &  Soloway,  1985; 

Soloway, 

Bonar  &  Erlich, 

1983; 

Soloway  &  Erlich,  1984;  Soloway,  Ehrlich,  Bonar  &  Greenspan, 
1982;  Ehrlich  &  Soloway,  1983;  Rist,  1986).  Soloway  and  his 
colleagues  are  at  the  forefront  of  theory  in  this  area. 
They  have  developed  a  taxonomy  of  programming  plans  and  plan 
types.  For  example,  Bonar  &  Soloway  <1985)  note  that  novice 
programmers  bring  'step  by  step  knowledge*  about  how  to  make 
choices,  iterate,  and  perform  other  sequential  activities 
from  everyday  life  into  the  programming  task.  They  must 
then  acquire  "programming  knowledge,"  which  consists  not 
only  of  the  syntax  and  semantics  of  a  programming  language, 
but  also  the  plans,  or  hierarchically  organized  sequences  of 
goals  and  actions  that  achieve  specific  tasks. 

Some  empirical  studies  of  the  claim  that  programmers 
utilize  plans  have  appeared.  Rist  (1986),  for  example,  asked 
novice  and  expert  programmers  to  group  lines  of  Pascal  code 
that  "did  the  same  things"  together.  Novice  and  expert 
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programmers  grouped  lines  on  several  crtlterla  including 
"global  plans"  like  initialize,  input,  calculate,  and 
output,  "task-level"  plans  like  sorting  wallpaper  costs  for 
a  specific  room  or  calculating  the  tax  for  a  particular 
item,  and  "syntax",  like  assignment  statements  or  loop 
control  statements .  Interestingly,  novices  grouped  many  more 
lines  based  on  syntax  while  experts  grouped  lines  based  on 
function. 

In  this  experiment,  we  explored  the  way  in  which  expert 
programmers  chunk  code  by  looking  at  several  different 
programs.  Including  programs  in  different  languages,  that 
utilize  the  same  plans.  Previous  researchers  have  tended  to 
focus  on  plans  in  individual  programs,  assuming  that  the 
abstract  plans  are  transferable  across  programs.  Also, 
previous  research  has  almost  exclusively  dealt  with  a  single 
language,  usually  Pascal.  If  we  truly  believe  that  plans 
are  abstract  knowledge  structures  that  programmers  utilize 
when  they  write  or  read  code,  then  we  should  be  able  to 
demonstrate  their  common  properties  across  programs  and 
across  languages. 

Plans  are  knowledge  structures  that  organize  steps  in  a 
procedure  into  chunks.  Each  chunk  achives  a  subgoal  in  the 
goal  hierarchy  of  a  particular  task.  Program  plans  organize 
sections  of  code  into  chunks.  Task-level  plans  consist  of 
subgoals  that  are  specified  in  the  task  language,  to  "get  an 
address  from  a  buyer's  list"  for  example.  General  plans,  on 
the  other  hand,  consist  of  subgoals  that  are  abstractions 
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fro*  a  specific  task,  and  may  in  fact  apply  in  several 
contexts,  "Iterate  in  a  loop"  for  example.  Programs  that 
perform  different  tasks  but  use  the  same  general  plans 
should  be  chunked  the  same  way.  To  examine  this  claim,  we 
asked  programmers  to  segment  code  from  Pascal  and  Fortran 


programs  and 

to  sort  the  programs 

into 

groups 

Within 

each 

language  group,  there  were  subgroups 

of 

programs 

that 

utilized  the 

same  general  plans. 

A 

maj  or 

goal  of 

our 

initial  study 

was  to  demonstrate 

that 

plan 

subgroups 

are 

recognizable  to  programmers  by  showing  that  programs  sharing 
a  plan  would  be  sorted  together  and  by  showing  that  programs 
sharing  a  plan  would  be  segmented  and  described  the  same 
way . 

A  programming  language  is  usually  designed  to  support 
general  plans.  Thus,  languages  contain  "loop  constructs" 
but  do  not  contain  “compare  phone  lists*  constructs.  To  the 
extent  that  general  program  plans  are  abstract  from 
specific  tasks,  programs  that  are  written  in  different 
languages  but  that  utilize  the  same  plan  should  be 
recognized  as  similar.  A  second  goal  of  this  study  was  to 
show  that  Pascal  and  Fortran  programs  which  used  the  same 
plan  would  be  segmented  and  labelled  in  the  same  way. 

Method 

Subjects.  Fifteen  Pascal  programmers  and  fifteen  Fortran 
programmers  were  recruited  from  the  student  population  at 
Rutgers  University.  Most  of  the  Pascal  programmers  were 
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graduate  students  in  computer  science  while  most  of  the 
Fortran  programmers  were  engineering  graduate  students. 
Each  subject  was  paid  18.00  per  hour  for  participation,  and 
most  subjects  spent  1.5-2. 5  hours  in  the  experiment. 

Materials .  Nine  Fortran  programs  and  nine  Pascal  programs 
were  written  for  use  in  this  (and  subsequent)  experiments. 
All  of  the  programs  are  debugged,  working  code.  The  nine 
programs  In  each  language  group  achieved  nine  different 
tasks,  but  they  were  written  in  accordance  with  the  three 
plans  shown  in  Table  1.  Within  each  language  group,  there 
were  three  programs  that  utilized  each  of  the  three  plans. 

Pascal  programs  Pas l ,  Pas2,  and  Pas3  and  Fortran 
programs  Fori,  For2,  and  For3  were  written  in  accordance 
with  the  first  plan  in  Table  1,  the  ’MG0M"  plan.  The  MGOM 
plan  consisted  of  five  subgoals:  1)  declare  data  structures 
2)  display  a  MENU,  3)  GET  an  input  from  the  menu,  4)  perform 
the  OPERATION  selected  by  the  input,  and  5)  return  to  the 
MENU  state  or  quit.  Programs  Pas  1  and  Fori  were  data 
analysis  programs.  Programs  Pas2  and  For2  were  computer 
mail  programs,  and  programs  Pas3  and  Far3  emulated  an 
electronic  calculator.  The  texts  of  these  programs  appear 
in  Appendix  A. 

Pascal  programs  Pas4,  Pas5,  and  Pas6  and  Fortran 
programs  For4,  For5,  and  For6  were  all  written  in  accordance 
with  the  second  plan  in  Table  i,  the  "RCP"  plan.  The  RCP 
plan  consisted  of  four  subgoals:  i)  declare  data  structures. 
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2)  READ  lists  from  files,  3)  COMPARE  lists  and  get  common 
elements,  and  4)  PRINT  the  common  elements.  Programs  Pas4 
and  For4  found  common  courses  in  transcripts  and  printed 
these  as  transfer  courses,  programs  Pas5  and  For5  compared 
two  schedules  and  printed  possible  meeting  times,  and 
programs  Pas6  and  For6  compared  two  mailing  lists  and 
printed  common  customers.  The  texts  of  these  programs 
appear  in  Appendix  B. 

Pascal  programs  Pas7,  Pas8,  and  Pas9  and  Fortran 
programs  For?,  For8,  and  For9  were  written  in  accordance 
with  the  th'r^  plan  in  Table  1,  the  “RTRDP*  plan.  The  RTRDP 
plan  consisted  of  five  subgoals:  1)  declare  data  structures, 
2)  READ  and  TEST  an  initial  input,  3)  display  further 
Information  and  READ  new  Inputs,  4)  DO  a  transaction  or 
calculation,  and  5)  PRINT  the  results.  Programs  Pas7  and 
For7  emulated  a  bank  teller  machine,  programs  Pas8  and  For8 
presented  a  stimulus  and  collected  a  reaction  time  as  if  for 
a  psychology  experiment,  and  programs  Pas9  and  For9 
controlled  a  computer  login  sequence. 

Procedure.  Subjects  were  run  individually  or  in  small 
groups.  Each  subject  received  a  packet  containing 
Instructions  and  the  nine  programs  in  either  Pascal  or 
Fortran.  Subjects  were  first  instructed  to  draw  lines 
between  statements  in  the  code  in  order  to  ‘identify  the 
parts*  of  the  program  and  to  divide  each  program  into 
“several  major  sections.*  Each  time  a  subject  drew  a  segment 


Table  1:  Components  of  the  three  programming  plans. 


Plan  U  *MGOM" 

a.  declare  data  structures. 

b.  display  a  MENU. 

c.  GET  an  Input  from  the  menu. 

d.  perform  the  selected  OPERATION. 

e.  return  to  the  MENU  state  or  quit. 

Instantiations  of  plan  1 

Data  analysis  (Fori,  Past). 

Computer  mail  <For2,  Pas2>. 
Electronic  calculator  <For3,  Pas3>. 


Plan  2:  *RCP* 

a.  declare  data  structures. 

b.  READ  lists  from  files. 

c.  COMPARE  lists  and  get  common  elements. 

d.  PRINT  the  common  elements. 

Instantiations  of  plan  2 

Course  transfer  (For4,  Pas4> . 

Schedules  <For5,  Pas5>. 

Mailing  lists  <For6,  Pas6). 


Table  1.  (cont.) 


Plan  3;  “RTRDP" 

a.  declare  data  structures. 

b.  READ  and  TEST  an  initial  input. 

c.  display  further  information  and  READ  new  input. 

d.  DO  a  transaction  or  calculation. 

e.  PRINT  the  results. 

Instantiations  of  plan  3 

Computer  login  sequence  <For7,  Pas7>. 

Stimulus-response  psychology  experiment  (For8,  Pas8). 


Bank  teller  (For9,  Pas9)  . 
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line  It  was  numbered  in  order.  After  segmenting  the  major 
sections  of  a  program  the  subjects  were  instructed  to  write 
a  descriptive  label  for  each  major  section  “in  terms  of  the 
program’s  task."  For  each  program,  after  segmenting  and 
labelling  the  major  sections,  the  subjects  were  instructed 
to  draw  segment  lines  within  the  major  sections  to  identify 
subsections.  Finally,  subjects  were  asked  to  sort  the 
programs  into  groups.  The  subjects  were  told  that  programs 
belonged  in  a  group  if  they  “work  the  same  way.“  Subjects 
were  allowed  to  form  as  many  groups  as  they  wished  but  they 
could  not  leave  a  single  program  in  a  group  by  itself  nor 
could  they  put  all  of  the  programs  together  into  a  single 
group . 


Resul ts 

Subject  Programming  Experience.  Subjects  in  both  the  Pascal 
and  Fortran  groups  had  an  average  of  3.6  years  of 
programming  experience.  However,  subjects  in  the  Pascal 
group  reported  having  worked  with  more  programming  languages 
(a  mean  of  5.8  languages)  than  subjects  in  the  Fortran  group 
<a  mean  of  2.8  languages),  t<27)=4.59,  p<.001. 

Segmenting.  Each  subject  drew  line  segments  in  the  code  of 
nine  programs.  We  predicted  that  line  segments  would  be 
drawn  at  plan  boundaries.  For  each  program,  we  calculated 
the  frequency  of  line  segments  drawn  after  each  line.  If 
60%  or  more  of  the  subjects  segmented  a  program  at  a 


Table  2.  Frequencies  of  segmenting  by  60%  or  more  of  the 
subjects  at  predicted  and  not  predicted  positions  in 
the  Pascal  programs. 


Segmenting  Segmenting 

predicted  not  predicted 


Past 

Observed 

4 

Not 

Observed 

0 

Observed 

0 

Not 

Observed 

53 

Pas  2 

4 

0 

0 

46 

Pas3 

3 

1 

0 

48 

Pas4 

3 

1 

0 

46 

Pas5 

3 

1 

0 

76 

Pas6 

2 

2 

0 

31 

Pas7 

3  ' 

1 

0 

44 

Pas8 

4 

0 

0 

43 

Pas  9 

3 

1 

0 

71 

Pascal 


Totals 


29 


7 


0 


458 


Table  3.  Frequencies  of  segmenting  by  60%  or  aore  of  the 
subjects  at  predicted  and  not  predicted  positions  in 
the  Fortran  programs. 

Segmenting  Segmenting 

predicted  not  predicted 


Fort 

Observed 

3 

Not 

Observed 

1 

Observed 

0 

Not 

Observed 

46 

For2 

3 

1 

0 

33 

For3 

3 

1 

0 

45 

For  4 

4 

0 

0 

53 

For5 

4 

0 

2 

51 

For6 

4 

0 

0 

45 

For7 

3 

1 

0 

46 

For8 

4 

0 

0 

32 

For9 

3 

1 

1 

52 

Fortran 


Totals 


31 


5 


3 


403 


‘particular  line,  we  considered  that  line  an  important  chunk 
boundary.  Important  chunk  boundaries  should  correspond  to 
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the  predicted  plan  boundaries. 

Tables  2  and  3  show  the  frequencies  of  important  chunk 
boundaries  (those  that  were  segmented  by  60%  or  more  of  the 
subjects)  at  predicted  and  not-pred icted  locations  for  the 
nine  Pascal  programs  and  the  nine  Fortran  programs 
respectively.  Chi-squares  on  the  frequencies  for  all 
programs  were  significant,  ranging  from  x2(l)=24,  p< . 05  for 
Pas6  to  Jf2(i)=78,  p<.001  for  Pas5.  Twenty-nine  out  of  36 
(81%)  of  the  plan  boundaries  in  the  Pascal  programs  were 
segmented  according  to  our  criterion.  Thirty-one  out  of  36 
(86%)  of  the  plan  boundaries  in  the  Fortran  programs  were 
segmented  according  to  our  criterion.  None  of  the  458  non¬ 
boundary  lines  were  segmented  in  the  Pascal  programs,  and 
only  3  out  of  406  (<1%)  non-boundary  lines  were  segmented  in 
the  Fortran  programs. 

Modal  Labels  of  Program  Segments .  After  segmenting  the 
programs,  the  subjects  labelled  each  section  with  a 
description  of  its  function.  We  were  concerned  with  whether 
these  descriptions  corresponded  with  the  subgoals  that  we 
claim  control  each  chunk.  Tables  4,5,  and  6  show  the  modal 
descriptive  labels  that  subjects  gave  to  each  chunk  of  each 
program  in  the  MGOM,  RCP,  and  RTRDP  plan  groups 
respectively.  Included  in  this  list  are  labels  that  were 
given  to  major  chunks,  those  which  were  identified  by  a 


Table  4.  Modal  descriptive  labels  for  plan  components  In 
Pascal  and  Fortran  programs  using  the  MGOM  plan. 


Data  analysis 

Pas  1 _ 

Declare . 

Print  Instruction. 
Get  number. 

Compute  means. 

Computer  Mail 

P*32 _ 

Declare  variable. 
Print  instruction. 
Process  message. 

Quit. 


Ferl _ 

Declare. 

Display  menu. 

Read  key. 

Calculate  mean  and 
update  result. 

For2 _ 

Declare . 

Print  our  menu. 

Get  input  and 
print  message. 
Check  If  end. 


Electronic  Calculator 

Eaa.3 _  Fieri - 

Declare.  Declare. 

Print  Menu.  Print  out  menu. 

Read  In  value  and  - 

allow  choice. 

Do  calculation.  Calculate. 


Continue  or  end 


Table  S.  Modal  descriptive  labels  for  plan  components  in 
Pascal  and  Fortran  programs  using  the  RCP  plan. 


Course  transfer 

EasJ _ 

Declare . 

Read  file. 

If  same  then  transfer. 
Output  results. 


For4 _ 

Define  variables. 
Read  data  file. 
Compare  data. 
Print  results. 


Schedules 

_ 

Declare . 

Read  file. 
Compare  1 i sts . 
Print  result. 


For5 _ 

Declare  . 
Read  files. 
Compare . 
Print  out. 


Ma  i  1  ina  Lists 

Pas6 _ 

Declare . 

Read  data. 
Compare  lists. 
Print  result. 


For6 _ 

Declare . 

Read  data  file. 
Compare  data. 
Print  out. 


Table  6.  Modal  descriptive  labels  for  plan  components  In 
Pascal  and  Fortran  programs  using  the  RTRDP  plan. 


Bank-teller  machine 

Z&&7 _ 

Declare . 

Check  password. 
Display  options. 
Print  account. 

Psychology  experiment 


Coaouter  login  sequence 

EaA2 _ 

Declare . 

Print  account. 

Do  transaction. 


For7 _ 

Declare . 

Read  data. 

Print  menu. 

Decrement  account  and 
print  result. 

For8 _ 

Declare . 

Give  instruction. 

Get  response  and 
update  count. 

Output  result. 


For9 _ 

Declare  . 
Check  input. 
Choose . 


Pas  8 _ 

Declare . 

Initialize  variable. 
Print  out  message  and 
receive  response. 
Calculate  percentage 
and  print  result. 


Print  result. 


Print  result. 
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segment  line  drawn  by  60%  or  more  of  the  subjects.  Each 
label  listed  Is  the  most  frequent  of  the  set  of  labels  given 
to  that  chunk  (the  experimenters  judged  paraphrases  and 
close  matches  In  wording  to  be  the  same  label). 

In  glancing  over  these  lists*  note  that  descriptions  of 
the  Pascal  and  Fortran  programs  which  did  exactly  the  same 
thing  (e.g.  Pasl  and  Fori,  Pas2  and  For2,  Pas3  and  For3, 
etc.)  sound  very  similar.  Also,  the  six  programs  within  a 
plan  group  also  sound  similar. 

Almost  all  of  the  labels  are  abstract,  describing 
general  computational  functions  such  as  'declare  variables,* 
"read  data  file,"  “display  menu,"  "calculate,"  and  "print 
results."  Only  a  few  labels  are  task  specific,  namely 
"compute  means’  and  “calculate  means"  in  Pasl  and  Fori 
respectively,  "if  same  then  transfer"  In  Pas4,  "check 
password"  in  Pas7,  "decrement  account"  in  For7,  "calculate 
percentage"  in  Pas8,  and  “print  account'  in  Pas9. 

Descriptions  of  the  plan  chunks ,  Table  7  shows  the  major 
chunks  of  each  plan  and  indicates  whether  or  not  60%  or  more 
of  the  subjects  provided  an  appropriate  descriptive  label 
for  each  chunk  in  each  of  the  six  programs.  Subjects 
provided  appropriate  descriptions  for  all  of  the  chunks  In 
all  of  the  instances  of  the  RCP  plan.  This  was  the  most 
successful  set  of  programs  in  terms  of  matching  label  data 
to  a  plan. 


Table  7.  Production  of  appropriate  decrlptlons  for  plan 
coaponents.  "Yes'  indicates  that  60%  or  more  of  the 
subjects  provided  an  appropriate  description. 


Pas  1 

Pas2 

Pas  3 

For2 

For3 

Declare  data  structure. 

yes 

yes 

yes 

yes 

yes 

yes 

Display  menu/ instruct . 

yes 

yes 

yes 

yes 

yes 

yes 

Get/read  input. 

ye  s 

no 

yes 

yes 

yes 

yes 

Calculate /compute . 

yes 

yes 

yes 

yes 

no 

no 

Quit.  1 

no 

yes 

no 

no 

yes 

yes 

RCP  Plan _ 

Pas  4 

Pas5 

Pas6 

For4 

For5 

For6 

Declare  data  structure. 

yes 

yes 

yes 

yes 

yes 

yes 

Read  files. 

yes 

yes 

yes 

yes 

yes 

yes 

Compare  lists. 

yes 

yes 

yes 

yes 

yes 

yes 

Print  results. 

yes 

yes 

yes 

yes 

yes 

yes 

RTRP.P..  Plan _ 

Pas7 

Pas8 

Pas9 

For7 

For8 

For9 

Declare  data  structure. 

yes 

yes 

yes 

yes 

yes 

yes 

Test/ inlt lal lze  inputs. 

yes 

yes 

no 

yes 

no 

yes 

Display  instr./read  Inp. 

yes 

yes 

yes 

yes 

yes 

no 

Do  transaction. 

no 

yes  2 

yes 

yes  2 

yes 

yes 

Print  results. 

yes 

yes  2 

yes 

yes  2 

yes 

yes 

l"Ouitm  was  an  unexpected  label,  see  text  for  a  discussion 
2  These  components  were  described  together  in  one  label. 
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For  the  MGOM  plan,  a  majority  of  the  subjects  provided 
descriptions  for  the  first  two  chunks,  ‘Declare  data 
structure"  and  ‘Display  Menu/Instructions,*  in  each 
program.  Fewer  than  our  60%  criterion  provided  a  label  for 
the  "Get/Read  Input*  chunk  in  Pas2,  but  this  chunk  was 
included  in  descriptions  of  all  the  other  programs.  The 
final  chunk,  “Calculate /Compute  ‘ ,  was  Included  in 
descriptions  of  all  the  Pascal  programs  and  Fori,  but  not 
For2  and  For3.  Apparently  many  subjects  felt  that  getting 
input  and  performing  a  computation  were  part  of  the  same 
chunk  in  these  latter  two  programs.  Finally,  subjects 
included  an  unexpected  chunk,  which  they  labelled  “Quit,‘  in 
Pas2,  For2  and  For3.  This  chunk  is  branched  to  when  the 
‘Quit"  option  is  chosen  in  the  ‘Get  Input"  part  of  the 


program . 

For  the  RTRDP  plan,  descriptions  were  provided  by  a 
majority  of  subjects  for  all  of  the  plan  chunks  in  Pas8  and 
For7 .  In  Pas9  and  For8  the  second  chunk,  ‘ Test / In i t i al  i ze 
Inputs"  did  not  meet  the  60%  criterion  and  in  those  cases 
the  chunk  was  included  as  part  of  the  "Display 
Instructions/Read  Input"  subgoal.  In  For9,  the  ‘Display 
Instructions/Read  Input"  and  “ Test / In i t  ial  i ze  Inputs"  chunks 
were  also  combined,  but  described  as  "Check /In  i  t ial i ze 
Inputs."  Finally,  "Do  Transaction"  and  "Print  Results"  were 
described  as  separate  chunks  in  Pas9,  For8  and  For9,  but 
were  described  togther  in  Pas8  and  For7.  'Do  Transaction* 
did  not  meet  the  60%  criterion  in  Pas7. 


Table  8.  Stress  values  for  1-3  dimensional  solutions  to 


multidimensional 
sorting  data. 

DlmenaJonal  ltv 

One 

Two 

Three 


scaling  of  Pascal  and  Fortran  program 


Programming  Language 
-Eftagal _ Fortran 


.  196 

.  124 

.002 

.000 

.000 

.000 
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Program  Sorting.  After  segmenting  and  labelling,  the 
programmers  were  asked  to  sort  the  programs  into  groups 
according  to  "the  way  they  work."  They  were  instructed  to 
sort  the  programs  into  as  many  groups  as  they  wished  with 
the  constraints  that  no  program  could  be  left  by  itself  and 
all  the  programs  must  not  be  sorted  together  into  a  single 
group . 

Multi-dimensional  scaling  (MDS)  was  used  to  determine 
if  the  Pascal  and  Fortran  programs  were  sorted  into  three 
distinct  plan  groups.  For  each  language  group,  the  input  to 
the  MDS  algorithm  was  a  matrix  of  the  frequencies  with  which 
each  program  was  sorted  with  each  of  the  other  programs. 
Use  of  the  frequency  data  is  based  on  the  assumption  that 
programs  which  are  more  similar  will  be  sorted  together  more 
frequently.  Separate  MDS  analyses  were  performed  on  the 
Pascal  and  the  Fortran  data.  The  strongest  prediction  is 
that  a  one-d i mens i onal  solution  will  fit  both  data  sets  well 
and  that  the  plot  of  the  stimulus  coordinates  will  show 
three  clusters  based  on  the  plan  groups. 

Table  8  shows  the  "stress"  values  for  one,  two,  and 
three-dimensional  MDS  solutions  for  both  the  Pascal  and  the 
Fortran  data.  Lower  stress  values  indicate  a  good  fit  to 
the  data,  and  values  below  .15  are  considered  to  be  good 
fits  (Kruskal  &  Wish,  1978).  On  these  criteria,  the  one 
dimensional  solution  fits  the  Fortran  data  very  well  and  the 
Pascal  data  fairly  well.  A  two  dimensional  solution 


PAS1  PAS2  PAS3  PAS8  PAS7  PAS 9  PAS4  PAS5  PAS6 


v 

H - 1 - 1 - 1 - 1- 

-2-1  0  1  2 

DIMENSION  1  (PLAN) 


FOR5  FOR6  FOR4  FOR8  FOR7  FOR9  FOR2  FORI  FOR3 

- 1 - 1 - 1 - 1 - 1 - 

-2  -10  12 

DIMENSION  1  (PLAN) 


Figuzv  1.  Plots  of  the  stimulus  coordinates  for  one¬ 
dimensional  solutions  to  1V1DS  of  Pascal  (A) 
and  Fortran  (B)  program  sorting  data. 
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completely  explains  the  distributions  of  data  for  both  the 
Fortran  programs  (although  Kruskal  &  Wish,  1978  suggest  that 
a  one-dimensional  solution  with  stress  below  .15  is 
adequate)  and  the  Pascal  programs. 

Figure  1  presents  one-dimensional  plots  of  the  stimulus 
coordinates  for  Pascal  (Figure  1A)  and  Fortran  (Figure  IB) 
program  sorts.  Note  that  three  clusters  are  present  in  both 
plots.  One  cluster  contains  a  tight  distribution  of  Pas  1 , 
Pas2,  and  Pas3  in  Figure  1A  and  Fori,  For2,  and  For3  in 
Figure  IB,  all  members  of  the  MGOM  plan  group.  Another 
cluster  contains  a  tight  distribution  of  Pas4,  Pas5,  and 
Pas6  in  Figure  1A  and  For4,  For5,  and  For6  in  Figure  IB,  all 
members  if  the  RCP  plan  group.  A  third  cluster  contains 
Pas7  and  Pas9  in  Figure  1A  and  For7,  For8,  and  For9  in 
Figure  IB,  all  members  of  the  RTRDP  plan  group.  Note  that 
Pas8,  which  should  be  in  the  RTRDP  plan  group,  is  near  the 
members  of  the  MGOM  group.  This  program  was  the  'psychology 
experiment"  program  which  presents  stimuli,  collects 
reaction  times,  and  writes  means  to  a  file.  Many  subjects 
commented  that  they  did  not  really  understand  this  program. 
Several  subject  said  that  they  sorted  it  with  the  MGOM 
programs  because  they  perform  numerical  calculations.  Pas  1 
and  Fori,  in  fact,  calculate  means  and  therefore  share  a 
task  with  Pas8  and  For8.  When  subjects  did  not  understand 
the  structure  of  the  program,  they  sorted  on  this  common 


task  feature. 


DIMENSION  2 


2 


|PAS2  PAS1  PAS 3  PAS 4  PASS  PAS 6 

1 
No 

password 
checking 

0 

-1 

Password 
checking 

-2 

-2-1  0  12 

DIMENSION  1  (PLAN) 

Figure  2.  Plots  of  the  stimulus  coordinates  for  two- 
dimensional  solutions  to  MDS  of  Pascal 
program  sorting  data. 


DIMENSION  2 


2 


DIMENSION  1  (PLAN) 


Figure  3.  Plots  of  the  stimulus  coordinations  for  two- 
dimensional  solutions  to  MDS  of  Fortran 
program  sorting  data. 


Figures  2  and  3  present  the  two-dimensional  plots  of 
the  stimulus  coordinates  for  Pascal  and  Fortran  program 
sorts  respectively.  We  have  circled  the  original  plan 
groups  in  these  two  figures,  and  drawn  a  line  to  separate 
Pas7  and  Pas9  from  the  other  programs  in  Figure  2  and  For7 
and  For9  from  the  other  programs  In  Figure  3.  Addition  of 
the  second  dimension  seems  to  draw  these  two  programs  away 
from  the  rest  in  both  language  groups.  In  looking  at  the 
descriptions  that  subjects  gave  and  the  contents  of  the 
programs  themselves,  we  conclude  that  these  programs  (one  is 
the  bank  teller  program  and  the  other  is  the  login  program) 
are  distinctive  since  they  both  contain  requests  for 
passwords  and  require  a  test  of  the  passwords  before 
cont inu i ng . 

Finally,  hierarchical  clustering  (Johnson,  1967)  is 
often  used  with  sorting  data  to  show  group  structure.  Figure 
4  shows  hierarchical  clustering  of  the  sorting  data  for  the 
Pascal  (Figure  4a)  and  Fortran  (Figure  4b)  programs.  Highly 
dissimilar  Items,  indicated  by  infrequent  sorts  into  the 
same  group,  cause  branching  high  In  the  tree  structures. 
More  similar  items  cause  branching  lower  in  the  trees. 

For  the  Pascal  programs  (Figure  4a),  the  highest 
braching  creates  two  groups.  One  group  contains  Pas4,  Pas5, 
and  Pas6  while  the  remaining  programs  are  in  the  second 
group.  Pas4,  Pas5,  and  Pas6  are  all  members  of  the  RCP  plan 
group,  programs  which  handle  non-numer leal  Information.  The 
remaining  programs  all  handle  numerical  information.  Thus, 


-20.00 


DISSIMILARITIES 


FOR9 

FOR7 

FOR8 

FOR3 

FORI 

FOR2 

FOR6 

FOR5 

FOR4 


-20.00  DISSIMILARITIES 


4.  Hierarchical  clustering  of  Pascal  (A)  and  Fortran  (B) 
program  sorting  data. 
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an  important  dimension  for  the  Pascal  code  may  be  the  type 
of  data  that  is  handled.  Among  the  Pascal  programs  that 
handle  numerical  data,  two  more  clusters  emerge  high  in  the 
tree.  One  cluster  contains  Pas7  and  Pas9,  both  members  of 
the  RTRDP  plan  group  and  the  two  programs  which  check 
passwords.  In  the  other  cluster  are  Pasl,  Pas2,  and  Pas3, 
all  members  of  the  MGOM  plan  group,  and  the  deviant  program, 
Pas8.  The  three  clusters  <Pas4-Pas5-Pas6,  Pas5-Pas9,  and 
Pas  1 -Pas2-Pas3-Pas8 )  do  not  begin  to  break  up  until  much 
lower  in  the  tree,  suggesting  that  they  fcrm  three  Important 
clusters  which  (with  the  exception  of  Pas8)  correspond  to 
the  three  plan  groups  examined  in  this  experiment. 

For  the  Fortran  programs  (Figure  4b),  a  similar,  but 
not  exactly  equivalent  picture  emerges  from  hierarchical 
clustering.  At  the  highest  branching  level,  For7  and  For9, 
the  password  programs  in  the  RTRDP  plan  group,  form  a 
cluster  distinct  from  the  other  programs.  At  the  second 
branching  level,  which  is  still  very  high,  For4,  For5,  and 
For6,  the  non-numer ical  RCP  programs,  form  a  cluster 
distinct  from  Fori,  For2,  and  For3,  all  members  of  the  MGOM 
plan  group,  and  the  deviant  For8.  At  this  point,  the 
hierarchical  structure  of  the  Pascal  and  Fortran  programs 
looks  very  similar.  Unlike  Pas8  in  the  Pascal  programs, 
For8  breaks  away  from  the  For  1 -For 2-For3  cluster  at  a  high 
level.  This  leaves  three  plan  clusters  in  the  Fortran  data 
<For4-For5-For6 ,  For7-For9,  and  For  1 -For2-For3)'  that  remain 
together  until  low  in  the  tree  and  that  correspond  to  the 


three  plan  groups  examined  in  this  experiment.  For8  is  not 
cleanly  In  any  cluster. 
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Discuss  ion 

In  this  experiment  subjects  segmented  and  labelled 
sections  of  several  programs  and  then  sorted  the  programs 
into  groups.  The  positions  of  segmenting  lines  in  the 
programs  was  consistent  with  the  predicted  positions  of  plan 
chunks  for  both  Pascal  and  Fortran  programs  written  in 
accordance  with  three  plans.  The  labels  that  subjects  gave 
to  these  chunks  were  similar  within  plan  groups,  even  across 
Pascal  and  Fortran  language  groups.  A  majority  of  subjects 
<60%  or  more)  provided  labels  that  reflected  the  major 
subgoals  that  plan  components  achieved  for  most  of  the  plan 
chunks  in  the  programs.  Examination  of  the  modal  labels  for 
plan  chunks  shows  both  abstract  descriptions  Ce.g.  "print 
results")  and  more  task  specific  descriptions  Ce.g.  "compute 
means"),  however  the  bulk  of  the  descriptions  are  abstract. 
In  those  cases  where  a  majority  of  subjects  did  not  provide 
a  chunk  label,  we  must  assume  that  they  perceived  two 
subgoals  as  being  combined.  This  occured  most  often  when 
the  subgoals  were  "Calculate"  and  “Print."  In  some  cases 
where  programs  either  performed  a  calculation  and  returned 
to  a  menu  or  quit,  subjects  described  the  "Quit"  subgoal  as 
separate  from  the  "Calculate"  subgoal. 

Sorting  data  for  both  the  Pascal  and  Fortran  programs 
shows  that  they  cluster  Into  plan  groups.  This  suggests 


that  subjects  perceive  the  abstract  plan  structure  common  to 
all  of  the  programs  within  a  plan  cluster  and  use  it  a  basis 
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for  classifying  the  programs.  A  secondary  classification 
criterion  is  based  on  common  features.  In  one  case,  when 
the  structure  of  a  program  was  not  clear  to  subjects,  they 
based  their  sorting  judgement  on  the  fact  that  other 
programs  calculated  means.  When  a  second  dimension  is 
examined,  subjects  appeared  to  be  sorting  on  a  task-specific 
feature,  namely  whether  or  not  a  program  had  password 
checking.  For  Pascal  programs,  the  data  type  was  an 
important  feature  for  distinguishing  programs. 

We  conclude  from  this  data  that  programmers  consider 
both  general  plan  Information  that  is  common  to  many  tasks 
and  task-specific  program  constructs  when  comprehending 
code.  The  similarity  of  labels  for  both  Pascal  and  Fortran 
data  suggests  that  some  general  programming  plans  are  common 
across  languages.  In  future  studies,  we  expect  to  examine 
this  issue  more  carefully.  Pilot  data  on  sorting  of 
descriptions  of  these  Pascal  and  Fortran  programs  suggests 
that  language  information  is  not  present  in  the  abstract 
representations  that  are  used  to  label  the  programs. 

Finally,  we  should  note  that  although  the  data, 
especially  the  sorting  data,  provides  good  evidence  for 
abstract  plan  structures,  we  were  not  able  to  generate 
perfect  stimuli.  One  of  the  programs  was  unexpectedly 


sorted  into  a  different  plan  group,  apparently  on  the  basis 
of  non-plan  related  criteria.  This  suggests  a  practical 
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recommendaton  that  all  complex  stimuli  to  be  used  in  studies 
of  programmers  and  their  tasks  should  be  empirically 
validated  on  the  constructs  that  the  experimenters  feel  are 
important.  The  deviant  program  also  brings  up  a  theoretical 
question.  How  are  different  types  of  knowledge,  like 
general  plan  knowledge,  task-specific  knowledge,  and 
knowledge  of  language  constructs  related  and  used  together 
to  reason  about  code?  In  future  studies  (using  these 
materials,  by  the  way)  we  will  examine  some  of  these 
quest  ions . 
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Appendix  A.  Texts  of  Pascal  and  Fortran  programs 
that  belong  to  the  “MGOM“  plan  group  (6  pages). 


PROGRAM  PasK Input, output); {  10/03/'86  ) 

CONST 

No  =  5;. 

VAR 

I # J,T,Intrvl , Temp, ERR, NoKey, Num  :  Integer; 

Result  :  array  11.. No]  of  real; 

Key  :  string  141; 

BEGIN 

for  I  :=  1  to  6  do  writeln; 

wrlteln  ('  **********  MANUAL  **********'); 


wrlteln; 

wrlteln; 

writeln 

( » 

NUM  LOCK 

:  press 

it 

before  using'); 

wrlteln 

(' 

B  or  b 

:  press 

it 

to  begin  processing'); 

wrlteln 

(» 

BACKSPACE 

:  press 

It 

to  backspace'); 

writeln 

( * 

ENTER 

:  press 

it 

after  keying'); 

writeln 

( * 

w  _  » 

:  press 

it 

for  mean  of  single’); 

wrlteln 

(' 

group’ 

>; 

wrlteln 

(» 

E  or  e 

:  press 

it 

to  end  one  task ’ ) ; 

wrlteln 

( * 

C  or  c 

:  press 

it 

to  clear  screen'); 

wrlteln 

(' 

and  continue ' > ; 

writeln 

( * 

Q  or  q 

:  press 

it 

to  quit'); 

read  (Key); 

if  (Key 

=  'B')  or  (Key  = 

'b')  then 

begin 

wrlteln; write  In; write  In; 

write('  *  How  many  groups  do  you  want  to  analyze  ?  '); 

read(Num) 
end; 

Ke  y :  = '  c ' ; 
repeat 
J :  =  0 ; 

if  (Key  =  'C')  or  (Key  =  'c')  then  clrscr; 
for  I:=l  to  6  do  writeln; 
for  I:=  1  to  Num  do  Resu 1 t [ I ] : =0 ; 
repeat 
I :  =0; 

J .  =\J  + 1 ; 

Temp: =J ; 
repeat 

read(Key ) ; 
wr  i  te ( ’  '); 

I :  =  1  + 1 ; 

T :  =  I ; 

val (Key,NoKey,ERR) ; 

Result CJl :*Resultt Jl+NoKey; 
until  (Key  *  '*')  or  (Key  =  'E')  or  (Key  =’e'); 
if  (Key  <>  'E')  and  (Key  <>  'e')  then 
begin 

Result! J] :*ResultIJ]/(T-l); 

wr  lteln(  '  =*>  MEAN  :  ' ,  Resu  1 1 C  J  ]  ,  ’ - (»,J,')») 

end 

until  (Key  =  'E')  or  (Key  =  ’e’); 
wr i te 1 n ; wr i te In; wr i te In ; 

wrlteln('***  Q  or  q  for  QUIT,  C  or  c  for  Starting  again  ***'); 
read(Key) 

until  (Key  =  'Q')  or  (Key  =  'q') 

END. 


C***  PROGRAM  FORTRAN  1  {ll/12/'86> 
INTEGER  I, J,T, TEMP, NUM, NOKEY 


*** ' 


REAL  RESULT 
CHARACTER*4  KEY 
DIMENSION  RESULT< 5) 
WRI TEC  *, 10) 

10  FORMAT < //////> 

WRITEC*, *)'***  MANUL 
WRITEC*,*) 'NUM  LOCK 
WRITEC*,*) ' C  B 1 
WRI TE<  * , *) ' BACKSPACE 
WRITEC*,*)' ENTER 
WRI TE<*, *) '  I  =  ] 

WRITEC  *, *) ' IE1 
WRITE<  *, *) * 


PRESS  IT  BEFORE  USING’ 
TO  BEGIN' 

BACKSPACE' 

PRESS  IT  AFTER  KEYING' 
TO  GET  ONE  MEAN’ 

END  ONE  TASK  AND  START 
AGAIN' 


WRITEC  * , * ) ' C Q 1  :  QUIT' 

READC*, 20)  KEY 
20  FORMATCA) 

50  IF  <KEY.EQ.'B')  THEN 

WRI TE<  * , * ) ' *  HOW  MANY  GROUPS  YOU  WANT  ANALYSE  ?’ 
READ(*, *)  NUM 
END  IF 

IF  CKEY.NE.’Q’)  THEN 
DO  150  1=1, NUM 
RESULT< I ) =0 
150  CONTINUE 
J=0 

IF  ( KEY . NE . ’ E ’ )  THEN 
200  1=0 

J=J+1 

300  READC * , 20)  KEY 

IFC (KEY.NE. '  =  ' ) . AND . < KEY . NE . 'E' > .AND. ( KEY . NE . ’ Q' 
NOKEY= I  CHAR <  KEY ) -48 
1  =  1  +  1 

RESULT < J)=RESULT(J)+NOKEY 
GOTO  300 

ELSEIF  <  KEY . EQ . '  =  ' >  THEN 
RESULT <J)=RESULT( J) /I 
WRI TE<  *,*)’=  =  >  MEAN 
WRITEC*,*)  RESULTC J) 

GOTO  2 00 

ELSEIF  (KEY . EQ . ' E ’ )  THEN 
KEY='B' 

GOTO  50 
ENDIF 
ENDIF 
ENDIF 
STOP 
END 


))  THEN 


1 


PROGRAM  Pas 2 < Input , output ) ; { 1 0/ 1 3/ ' 86 ) 

VAR 

I  :  integer; 

KeyStr  :  string  C  40 1 # 

KeyPath  ;  string  [151; 

Key  :  char; 

BEGIN 

for  I  :=  1  to  6  do  writeln; 

writeln  (’  **********  MANUAL  **********’); 

wr i te In; wr i te In; 

writeln  ('  CMlail  :  to  enter  massage'); 

writeln  ('  CENTER!  :  press  it  after  completing') 

writeln  (’  [BACKSPACE]  :  press  it  to  backspace'); 

writeln  ('  CElrase  :  to  erase  massage'); 

writeln  ('  CFlrom  :  from  who*'); 

writeln  ('  CTlo  :  to  who*'); 

writeln  <’  CNlext  :  done  and  for  next  message’) 

writeln  (’  [Qluit  :  done  and  quit'); 

read (Key) ; 
clrscr ; 

while  Key  in  [ »M* , , 'E' . *e' J  do 
begin 

for  I:=l  to  10  do  writeln; 
wr i te  ( '  *  ’ ) ; 

re ad (Key ) ; 
wr  i  te  (  ’  :  ’  ) ; 
readln(KeyStr) ; writeln; 
wr i te  ( '  *  ' ) ; 

read(Key ) ; 

if  not  (Key  in  t'E’.'e’l)  then 
beg  in 

wr i te ( ’  :  ’); 
readln(KeyPath) ; 
wr i te  ( '  *  ’ ) ; 

read( Key ) ; 
wr i te ( ’  :  '); 

readln(KeyPath) ; 
wr i te ( ’  *  ’  ) ; 

read(Key) ; 
end ; 

if  (Key  in  t'N',’n’))  and  (not  (Key  in  C’e’,’E’]))  then 
begin 

Ke  y :  =  ’  m  ’  ; 
clrscr; 
end 
end ; 

if  Key  in  C 'Q' , 'q' ]  then 
begin 

writeln;writeln; 
wr lteln( ' 
end 
END. 


All  JOBS  DONE,  BYE  ! 


) 


C  *  *  *  PROGRAM  FORTRAN2  {ll/5/’86> 

INTEGER  I 

CHARACTER  KEY 

CHARACTER*  1 5  KEYSTR , KEYPATH 
J-0 

WR I TEC  * , 10) 

10  FORMAT < //////) 

WRI TEC  * , * > ’  *****  MANUL  ***** 

WRITEC*, 20) 

20  FORMAT <  /  /  ) 

WRI TE( *  *  * ) *  I M ] AI L  :  ENTER  MASSAGE" 

WRITEC*,*)'  CENTER]  :  END  OF  MASSAGE 

WRI TEC  *,  *)  ’  [BACKSPACE]  :  BACKSPACE’ 

WRI TE<  * ,  * )  '  C  E ] RASE  :  ERASE  MASSAGE’ 

WRI TEC  * , * ) '  C  F ] ROM  :  FROM  WHOM' 

WRITEC*,*)'  C T 1 0  :  TO  WHOM' 

WRITEC*,*)'  CN3EXT  :  DONE,  FOR  NEXT 

WRITEC*,*)'  CQ1UIT  :  DONE  AND  QUIT' 

READC  *, 30)  KEY 

30  FORMAT  C  A ) 

100  IF  CCKEY  .EQ.  'M')  .OR.  C KEY  .EQ.  'E'))  THEN 
WRITEC*,*)'  *' 

READC*, 30)  KEYSTR 
110  READC*, 30)  KEY 

IF  CKEY  .EQ.  'E')  GOTO  100 

IF  CKEY  .NE.  'F')  THEN 

GOTO  110 
ELSE 

WRITEC*,*)’  FROM  :  ’ 

READC*, 30)  KEYPATH 
END  IF 

120  READC*. 30)  KEY 

IF  CKEY  .EQ.  ’E’)  GOTO  100 

IF  CKEY  .NE.  'T’>  THEN 

GOTO  120 
ELSE 

WRITEC*,*)'  TO 
READC*, 30)  KEYPATH 
END  IF 
ENDIF 

READC*, 30)  KEY 
IF  CKEY  .EQ.  'N')  THEN 
KEY-’M' 

GOTO  100 

ELSEIF  CKEY  .EQ.  'Q')  THEN 
WRITEC*,*)’!!  JOBS  DONE,  BYE  !!' 

ENDIF 

STOP 

END 


PROGRAM  Pas3< i nput , output ) ; {09/ 26/' 86} 
VAR 


I  :  integer; 

NoKey, Result  :  real; 
Key  :  char; 


BEGIN 

for  I  :=  1 
wrlteln  (' 
write  In  .‘write  In; 
wrlteln  (’ 
wrlteln 
write  In 
wrlteln 
wrlteln 
wrlteln 
read  (Key) 
if  (Key  = 
repeat 

If  (Key  = 
Result : =0; 


to  6  do  wrlteln; 


( ' 
( ' 
( ’ 
( ’ 
(’ 


**********  MANUAL  **********’); 

NUM  LOCK  ;  press  it  before  using*); 

B  or  b  :  press  It  to  begin  computing') 
ENTER  :  press  it  after  keying’); 

C  or  c  ;  press  It  to  clear  screen’); 
and  cont lnue ’ ) ; 

:  press  It  to  quit’); 


’B')  or  (Key  =  'b') 
’C' )  or  (Key  *  'c 


Q  or  q 
then  Key  :=  'c1 
)  then  clrscr; 


Key:='+’ ; 
repeat 

read(NoKey ) ; 
case  Key  of 

'+’  :  Result : =Result+NoKey; 

:  Result: =Resul t-NoKey ; 
’*'  :  Resul t : =Resul t*Nokey ; 
'/'  :  Resul t : =Resul t/NoKey 
end; 

read(Key) 
unt 1 1  Key  =  '  =  '  ; 
wr i te 1 n (Resu 1 1 )  ; 
read(Key ) 
until  (Key  =  ’ 

2ND . 


q’ )  or  (Key  =  ’Q'  ) 


C***  PROGRAM  FORTRAN3{ 10/27/'86) 

INTEGER  I , NUM 
REAL  NOKEY, RESULT 

CHARACTER  KEY 
NUM* 10 
WRITE! *, 10) 

10  FORMAT < //////) 

WRITE!*, *>'  ****  MANUAL  ***** 

WRITE! *,20) 

20  FORMAT!//) 

WRITE!*,*)'  NUM  LOCK  :  PRESS  IT  BEFORE  USING' 

WRITE!*,*)'  C  B  ]  :  TO  BEGIN  COMPUTING' 

WRITE!*,*)'  ENTER  :  END  OF  SINGLE  DATA' 

WRITE!*,*)'  [  C  ]  :  GO  ON  NEXT  TASK' 

WRITE!*,*)'  C  Q  1  :  QUIT’ 

READ!*, 100)  KEY 
100  FORMAT! A) 

200  IF  ! ! KEY  .EQ.  'B')  .OR.  ! KEY  . EQ .  'C'))  THEN 
WRITE!*, *)'HERE  WE  BEGIN....’ 

RESULT=0 
KEY= ' + ' 

300  READ!*,*)  NOKEY 

IF  ! KEY  .EQ.  ' +’ )  THEN 
RESULT=RESULT+NOKEY 
ELSE IF  ! KEY  . EQ .  ’-’)  THEN 
RESULT=RESULT- NOKEY 
ELSE IF  ! KEY  .EG.  '*’)  THEN 
RESULT=RESULT*NOKEY 
ELSE IF  (KEY  . EQ .  '/’)  THEN 
RESULT=RESULT /NOKEY 
ENDIF 

READ!*, 100)  KEY 
IF  (KEY  .EQ.  '=’)  THEN 
GOTO  600 
ELSE 

GOTO  300 
ENDIF 

500  CONTINUE 
ENDIF 

600  WRITE!*, 610)  RESULT 
610  F0RMAT!F10. 3) 

650  READ!*, 100)  KEY 

IF  ! !KEY  .NE.  'C')  .AND.  ! KEY  .NE.  'Q'))  GOTO  650 
IF  ! KEY  .EQ.  'C')  THEN 
GOTO  200 
ELSE 

WRITE!*,*)'  ****  THANK  ****' 

ENDIF 

STOP 

END 
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V 


I 

i 


i 


{ 


PROGRAM  Pas4; { 10/08/ ' 86) 

TYPE 

Word=3tr lng  C 15 1 ; 

Coursetype  =  record 

Course  :  Word* 

Crts  :  Integer 
end; 

CONST 

Nl  =  2; 

N2  =  3; 

VAR 

I,J,K,Ctr  :  Integer; 

SUNY.Transf  :arrayt 1 . .N1 1  of  CourseType; 

MIT  :  array! 1..N21  of  CourseType; 

Datal ,Data2 : text; 

BEGIN 

Ctr : =0; 

ass ign< Data  1 , 'datal . 3' ) ; 
reset (Datal ) ; 

'for  I:*t  to  N 1  do  readln(Data 1 , SUNY! 1 1 . Course , SUNY! I ) . Crts ) ; 
close(Datal > ; 
ass lgn(Data2, 'data2. 3' )  ; 
reset (Data2) ; 

for  J:=l  to  N2  do  readln(Data2 , MI TC J 3 . Course , MIT! J] . Crts ) ; 
close(Data2) ; 
for  I : *  1  to  N1  do 
begin 

for  J:=l  to  N2  do 
begin 

If  (SUNY !1 1 . Crts>=MITCJI . Crts )  and  (SUNY! I  1 .Course=MIT! J] .Course)  then 
begin 

Ctr : =Ctr+ 1 ; 
with  TransftCtri 
do  begin 

Course : =SUNY ! I ]. Course ; 

Crts : =MIT! I  I .Crts 
end 

end 

end 

end; 

for  I:*i  to  8  do  writeln; 

wr iteln( '  *****  COURSES  CAN  BE  TRANSFERED  *****'); 

write  In; write  In; 
for  I : = 1  to  Ctr 
do  begin 

with  Trans f ! 1 1  do 

wrlteln('  *  ',1:3,'  ' .Course : 15, Crts:5) 

end; 

writeln; wrlteln( ’  *****  -  END  -  ****★') 

END. 


C***  PROGRAM  FORTRAN 4  {11/6/ *86} 

INTEGER  I , J , K, C, CRT  1 , CRT2 , CRT 

CHARACTER* 15  SUNY , MIT, TRANSF 
DIMENSION  CRT1C5),CRT2C5),CRTC5) 

DIMENSION  SUNY<  5) , MITC  5 ) , TRANSFC5 ) 

C»0 

0PENC20»FILE='DATA1 . 3' ) 

OPEN <21 , FI LE= ' DATA2 . 3 ' ) 

10  FORMATC A) 

20  FORMATC 1 2) 

DO  100  1=1,5 
READC  20, 10)  SUNY ( I ) 

READC  20, 20)  CRT1 < I ) 

100  CONTINUE 

DO  200  J= 1 ,5 
READC  21 , 10)  MITCJ) 

READC  21,20)  CRT2CJ) 

200  CONTINUE 

DO  400  1=1,5 
DO  400  J= 1 , 5 

IF  CSUNYCI) .NE. MITCJ))  G0T0400 
IF  CCRT1CI) .LT.CRT2CJ))  GOTO  400 
C=C+1 

CRTCC)=CRT2C J) 

TRANSFCC)=MITC I ) 

400  CONTINUE 

WRITEC*, 410) 

410  FORMATC//////) 

WRITEC*,*)'****  COURSES  CAN  BE  TRANSFERED  ****' 
WRITEC*,*)'  COURSE  CREDITS' 

DO  500  I=1,C 

WRITEC*. 420)  TRANSFC I ) , CRTC I ) 

420  FORMATC A, ’  ’,12) 

500  CONTINUE 

WRITEC*,*)'**************  END  ***************** 

STOP 

END 
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>ROGRAM  Pas5;(  10/0 1 /' 86  1 
7YPE 

WeekDay  =  (Mon,Tue,Wen,Thu,Fr i ) ; 
Schedule  =  record 

Morning  :  char; 

Noon  :  char; 

Afternoon  :  char 


end; 

/AR 

I.OrdDay  :  integer; 

Lor i , Bruce , ComTi me  :  array  CMon..Fri]  of  Schedule; 

Day  :  WeekDay; 

Datal,Data2  :  text; 

BEGIN 

ass ign< Data  1 , 'datal ’ ) ; 

reset(Datal > ; 

for  Day: -Mon  to  Frl  do 

with  LoriCDay]  do  readln(Datal .Morning, Noon, Afternoon) ; 
close(Datal ) ; 
ass ign(Data2, 'data2'  )  ; 
reset (Data2) ; 
for  Day:=Mon  to  Frl  do 

with  BruceCDay]  do  readln<Data2, Morning, Noon, Afternoon) ; 
close(Data2) ; 
for  Day:=Mon  to  Fri 
do  begin 

with  Lor  it  Day]  do 
begin 

if  (Morning  =  Bruce [Day ] .Morn lng)  and  (Morning  =  '*') 

then  ComTimetDayl .Morning: =  ’*' 

else  ComTimetDayl .Morn ing :  =  *  -  *  i 

if  (Noon  =  BruceCDay] .Noon)  and  (Noon  =  '*') 

then  ComT i me [ Day ] . Noon : = ' 

else  ComT i me [ Day ]. Noon :  =  ; 

if  (Afternoon  =  Bruce [Day  1 .Afternoon)  and  (Afternoon  =  ’*’) 
then  ComT l me [ Day  1 . Af ternoon : =  ’ 
else  ComT 1  me [ Day  1. Af ternoon :  =  ’ 

end 
end; 

for  I:=l  to  8  do  writeln; 

wr i te ln( ’  *****  THE  COMMON  SCHEDULE  *****’); 

wr i te 1 n ; wr  i  te  1  n ; 

writeln(’  Morning  Noon  Afternoon') 

for  Day:=Mon  to  Fri  do 

begin 

OrdDay:=ord(Day)  +  l ; 

wr l te ( ’  *  '.OrdDay,'  '); 

with  ComTlmetDay]  do  wr i te ln(Morn i ng : 6 , Noon : 1 2 , Af ternoon : 1 3) 
end 
END. 


C***  PROGRAM  FORTRAN5  (31/ 10/’ 86} 

INTEGER  I, J,ORDAY,DAY 

CHARACTER  LORI , BRUCE, COMTIME 

DIMENSION  LORI<5,3),BRUCE<5, 3) , COMTIME< 5 , 3 > 

OPEN <  20 , FI  LE=  *  DATA  1 ' ) 

0PEN(21 , FILE= ' DATA2 ' ) 

10  FORMAT(A) 

DO  100  1=1,5 
DO  100  J= 1 , 3 
READ<  20, 10)  LORI <  I ,  J) 

READ< 21,10)  BRUCE< I , J ) 

100  CONTINUE 

DO  200  1=1,5 
DO  200  J= 1 , 3 

IF<<LORI<I , J) .EQ.BRUCE<I, J)) .AND. <LORI < I , J) . EQ . ' *' ) )THEN 
COMTI ME< I , J )  = ' *  * 

ELSE 

COMTI ME< I , J)= ’ - ' 

ENDIF 

200  CONTINUE 

WRITE<*, 300) 

300  FORMAT  <//////) 

DO  500  1=1,5 
WRI TE<  * , * )  I 

WRI TE< *, *)  COM T I ME < 1 , 1 > , COMTI ME < 1,2), COMTI ME < 1,3) 

500  CONTINUE 
STOP 
END 


f 

\ 


PROGRAM  Pas6; £09/24/ ' 86) 

TYPE 

Word=strlng  [153; 

Psnfl =record 

Name : Word; 

Tele :Word 
end; 

CONST 

Nl  =  2; 

N2=3; 

VAR 

I,J,K,Ctr: Integer; 

JJ, CoL 1st : array [ 1 . . N 1 3  of  Psnfl; 

ATT:array[ 1 . .N23  of  Psnfl; 

Datal , Data 2: text; 

BEGIN 

,Ctr : =0; 

ass lgn< Datal , 'datal ' ) ; 
reset (Datal > ; 

‘for  I:  =  l  to  N1  do  readln(Data 1 , JJ [ 1 3 . Name , JJ [ 1 3 . Tele > > 
close (Datal ) ; 
ass  lgn(Data2, 'data2'); 
reset(Data2) ; 

for  J:  =  l  to  N2  do  readln(Data2 , ATTC J 3 . Name , ATT[ J 3 .Tele); 
close(Data2) ; 
for  I:=l  to  N 1 
do  begin 

for  J:=l  to  N2 
do  begin 

If  JJCI 1 .Name=ATTC JJ .Name 
then  begin 

Ctr : =Ctr+ 1 ; 
with  CoLlstCCtrl 
do  begin 

Name : =ATTt J3 . Name ; 

Tele: =ATTt  J  3 .Tele 
end; 

end 

end 

end ; 

wr i teln( ’  *****  THE  COMMON  CUSTOMERS  *****’); 

for  I : = 1  to  Ctr 
•do  begin 

with  CoLlstC I  3  do 
wrlteln('  *  *,!,*  '.Name, Tele) 
end 


END. 


c*** 


PROGRAM  FORTRAN6  (10/20/' 86} 


10 

20 

100 


1  10 
120 
200 
210 


300 


500 

600 


CHARACTER* 1 5  BELL, RCA, COLIST 
INTEGER  I , J , K , CTR 

INTEGERS  TEL1  ,TEL2,  COTEL 

DIMENSION  BELL<  2) , RCAC  3) , COL I ST <  2 ) 
DIMENSION  TEL1 <  2) , TEL2<  3> , COTEL ( 2  > 
CTR*0 

OPEN ( 20 , FI LE= ' DATA  1 .  1  ’  ) 

OPEN<  2 1 , FILE* ' DATA 2 . 1* ) 

DO  100  1=1,2 
READ( 20, 10)  BELLCI) 

READC  20, 20)  TEL1CI) 

FORMATCA) 

FORMAT < Ill) 

CONTINUE 
DO  200  J= 1 , 3 
READ( 21, 10)  RCA( J) 

READ < 2 1,20)  TEL2< J) 

FORMATCA) 

FORMAT < I  1 1 ) 

CONTINUE 
DO  300  1=1,2 
DO  300  J=  1 , 3 

IF  (.NOT.  <  BELL ( I ) . EQ . RCA  (  J  )  )  )  GOTO  300 
CTR=CTR+ 1 


COLIST(CTR)=RCA< J) 
COTEL <  CTR ) =TEL2 ( J ) 
CONTINUE 
WRITEC*,*)  ’ 

DO  500  K= l , CTR 
WRITEC*,*)  ’ 
CONTINUE 
STOP 


****  THE  COMMON  CUSTOMERS  ****' 
K , COLIST ( K) ,  ’  ' , COTELCK ) 


WRITEC*,*)  'NO  SUCH  FILE’ 
END 
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PROGRAM  Pas7 ; { 10/09/ ' 86  3 
TYPE 

LogType  =  record 

Date  :  string  [83? 
IDNo  :  string  C91; 
PassWd  :  string  171 » 
Account  :  real 
end; 

VAR 

TempA  :  real; 

Login  :  LogType; 

KeyS,TeapD  :  string  1123; 

Key  ;  char; 

I,J,NoKey  :  integer; 

DataC  :  text; 

BEGIN 


ass ignC DataC, 'datac. 2  * ) ; 
reset(DataC) ; 

with  Login  do  readln! DataC, Date , IDNo , PassWd , Account ) ; 
close (DataC) » 

TeapD : =LogIn . Date ; 

TeapA: -Login .Account ; 
for  I:»l  to  10  do  writeln; 

write!'  *  Date  :  '  > ; 

re ad In! Login. Date  ) ; 

wr i te  <  '  *  ID  No.  :  ’); 

readlnCKeyS) ; 

if  KeyS  <>  Login. IDNo  then 
begin 

write  1 n! chr ! 007 ) , '  MM  WRONG  ID  No., 

write!’  *  ID  No.  :  ’); 

repeat  readln(KeyS)  until  KeyS  =  Login. IDNo 
end ; 


TRY  AGAIN  M  M  ’  >J 


wr i te  < ’  * 

readln(KeyS) ; 

if  KeyS  <>  Login. PassWd  then 
beg  i  n 

writeln!chr!007), ’ 
wr  i  te ( '  * 

repeat  readln(KeyS)  until 
end ; 
clrscr ; 

for  l:=l  to  10  do  writeln; 
writeln! ’ 
writeln; 
writeln< ' 
wr i te In!  ' 

write  In; write  In; write  In; 
writeln!’ 

repeat  read(Key)  until  Key 
clrscr; 

for  I:*l  to  7  do  writeln; 
wr i teln< ’ 
wr l te In ; wr i te In ; 
wr itelnC ' 
wr l te 1 n< ' 
writeln! ' 
writeln! * 
writeln!’ 

wr iteln.wr l te In; write! ’ 
repeat  read!Key)  until  Key 
clrscr; 

for  I:*l  to  10  do  writeln; 


Password  : 


!!!!  WRONG  NUMBER,  TRY  AGAIN 
Password  :  ’  )  ; 

KeyS  =  Login. PassWd 


*  RECORD  OF  Login. IDNo, '  *’>; 

DATE  of  last  time  :  ’,TempD:9); 
MONEY  left  ’,TempA:9); 

— !  HIT  SPACE  TO  CONTINUE 

>  9  • 

9 


OPTIONS 

t 

P  3 

:  Pascal’ 

) ; 

t 

C  1 

:  C  language ' > ; 

t 

Z  3 

;  Zbasic’ 

) ; 

C 

L  3 

:  Lisp'); 

[ 

a  3 

:  Quit'); 

->  ' 

) ; 

n  t  'p' » 

’c' , 'z' , ' 1 ' , 'P' , 

'F' ,  'C 

I  •  I  f  >  ) 


in  t  'p 


****  NICE  TO  MEET  YOU  IN  *C*  ****'); 

****  WELCOME  TO  Zbasic  ****'); 
****  NICE  TO  MEET  YOU  IN  LISP  ****') 


•C’ 

'Z' 

'L' 


wr i te ln< ' 
wr i te 1 n< ' 
wr i te ln< ' 


'q' 


'Q 
end; 

If  Key  in  [ 
else  repeat 
clrscr; 


*Q*  #  *q* 1  then 
read(Key)  until 


Key  in  C'Q' 


Login. Account :=Log In. Account- 0. 3; 
for  I:=l  to  10  do  writeln; 
writeln<'  Date 

wr itelnC  *  MONEY  left 

wr iteln;wr iteln; 
wr iteln< ' 


q' 


] ; 


:  ' , Login .Date  :  9) ; 

:  Login . Account ; 9) ; 


GOOD  BYE  ! 


) 


C***  PROGRAM  FORTRAN?  £10/ 29/ '86} 

INTEGER  I, J, NOKEY 

REAL  TEMPA, ACCOUNT 

CHARACTER  KEY 
CHARACTER*?  PASSWRD 
CHARACTER*8  DATE 
CHARACTER*^  IDNO, KEYS, TEMPD 
OPEN<  20, FILE=' DAT AC . 2 '  ) 

READC 20, 10)  DATE 
READ( 20, 10)  IDNO 
READ( 20, 10)  PASSWRD 
READ( 20, 20)  ACCOUNT 

10  FORMAT(A) 

20  FORMAT CF7. 2) 

TEMPD=DATE 
TEMPA= ACCOUNT 

100  WRITEC*,*)  '  *  DATE  :  ' 

READ( *,10)  DATE 

150  WRI TEC  * , * )  '  *  ID  NO  :  ’ 

READC*, 10)  KEYS 
IF  CKEYS  .NE.  IDNO)  THEN 

WRITEC*,*)  '  ! !  WRONG,  PLEASE  REENTER  !!’ 

GOTO  150 
ENDIF 

200  WRITEC*,*)  ’  *  PASSWORD  :  ’ 

READC*. 10)  KEYS 

IF  CKEYS  .NE.  PASSWRD)  THEN 

WRITEC*,*)  '  ! !  WRONG,  PLEASE  REENTER  !!' 

GOTO  200 
ENDIF 

WRITEC*,*)  ’  ================================= 

WRITEC*,*)  '  *  DTATE  OF  LAST  ENTER  :  ’.TEMPD 

WRITEC*,*)  ’  *  MONEY  LEFT  :  '.TEMPA 

WRITEC*,*)  '  ================================= 

WRITEC*,*)  '  *  OPTIONS  :  ' 

WRITEC*,*)  ’  [01:  ZBASIC' 

WRITEC*,*)  ’  [11:  PASCAL’ 

WRITEC*,*)  '  (21:  LISP' 

WRITEC*,*)  '  t  Q  1  QUIT' 

WRITEC*,*)  '  ==>  ’ 

READC*,*)  NUMKEY 

IF  C NUMKEY  . EQ .  2)  NUMKEY  =  -  l 

IF  C NUMKEY)  310,320,330 


310 

WRITEC*,*) ' 

GOTO  400 

*** 

WELCOME 

TO 

LISP 

***' 

320 

WRITEC*,*)' 

GOTO  400 

*** 

WELCOME 

TO 

ZBASIC 

*** ' 

330 

400 

WRITEC*, *) ’ 

READC*, 10)  KEY 

*** 

WELCOME 

TO 

PASCAL 

***  ’ 

IF  CKEY  .NE.  'Q')  GOTO  400 
ACC0UNT=ACC0UNT-3 . 00 


WRITEC*,*)  '  ===============================' 

WRITEC*,*)  ’  *  DATE  :  '.DATE 

WRITEC*,*)  '  *  MONEY  LEFT  :  '.ACCOUNT 

WRITEC*,*)  ’  ==========  GOOD  BYE  !  =========' 


1 


STOP 

END 


2 


PROGRAM  Pas8; { 10/03/ '86} 
CONST 

TrlNo  =  2; 


PercntY, PercntN  :  real; 

Key  :  char; 

I , J,NoKey,SubNo, Nua, ERR, Post v , Negtv  :  integer; 

SaveKey  :  array  Cl.. TrlNo]  of  char; 

BEGIN 

repeat 

read(Key ) ; 
val (Key,SubNo,ERR) 
until  SubNo  in  Cl.. 301; 
for  I:=l  to  10  do  wrlteln; 

wr  1  teln( '  !!!  PLEASE  LOOK  AT  FIXATION  POINT  AFTER  HITTING  SPACE  Mi') 

repeat  read<Key)  until  Key  =  '  '; 

Num:=0;Postv ; =0; Negtv : =0; 
repeat 
clrscr ; 

for  I:=l  to  11  do  wrlteln; 
wr i te ln<chr <007 ) ) ; 


wr  iteln< * 
for  I : = 1 
clrscr; 
for  I :  =  1 
writeln< ' 
writeln<  * 
writeln< ' 
for  I : = 1 
clrscr; 
for  I : = 1 
for  I : = 1 
wr  i  te  < ’ 


300  do  for  J:=l  to  300  do; 


10  do  wrlteln; 


AHNX' ) ; 
PRBD' ) ; 

ocsu'); 


to  5000  do; 


for  I : = 1  to  200  do  for  J:=l  to  200  do; 
for  I:=l  to  11  do  writeln; 

write<*  **  Is  "P*  in  second  line  (Y/N) 

repeat  read(Key)  until  Key  In  t'Y'/N'/y'/n'l; 

Num : =Num+ 1 ; 


SaveKeytNum] :=Key; 

If  SaveKey C Num ]  in  t'Y', 
If  SaveKeyCNum]  in  C'N', 
until  Num  =  TrlNo; 

PercntY :=Postv/ TrlNo; 
PercntN : =Negtv /TrlNo ; 
clrscr ; 

for  I : = 1  to  10  do  writeln; 
wr lteln< ’ 
wr i te In; wr l teln; 
writeln<  * 
wr l te ln< ' 


then  Postv : =Post v+ 1 ; 
then  Negtv : =Negtv+ 1 


*******  RESULT  ******★'); 

Percentage  of  Yes  response  =' ,PercntY:9) ; 
Percentage  of  No  response  -*  ,PercntN;9) 


C***  PROGRAM  F0RTRAN8  {10/23/’86} 

CHARACTER* 1  KEY 
I NTEGER  I , J , SUBNOV , NUM 

REAL  Y ,  N , POSTV , NEGTV 

WRITEC*,*)  * NO.  OF  SUBJECT  :  #’ 

READC  *, 5 )  KEY 
5  FORMAT< A) 

DO  10  1=1,20 
WRI TEC  *, 5 ) 

10  CONTINUE 

WRITEC*,*)'! ! t  PLEASE  FIXATE  AT  THE  SCREEN  !!!' 

POSTV* 0 
NEGTV =0 
DO  400  J= 1 , 2 
DO  20  1=1,20 
WRITEC*,*) 

20  CONTINUE 

DO  25  1=1 , 19000 
25  CONTINUE 

WRITE<  *,  *)  ’  AHNX' 

WRITEC*, *)  '  PRBD' 

WRI TE<  * , * )  '  OCSU' 

DO  27  1=1,29000 
27  CONTINUE 

DO  30  1=1,50 
WRI TE<  * , *  ) 

30  CONTINUE 

WRI TE( * , * )  ’  ??  IS  E  P  J  IN  THE  FIRST  LINE  ??' 

35  READ( * ,  5  )  KEY 

IF  <  < KEY . NE . ' Y ' ) .AND. (KEY.NE. 'N' ) )  GOTO  35 
IF  < KEY . EQ . *Y» )  THEN 
POSTV =POSTV  + 1 
ELSE 

NEGTV=NEGTV+ 1 
ENDIF 

400  CONTINUE 

Y=POSTV / 2 
N=NEGTV / 2 
DO  600  1=1,20 
WRI TE<  * , * ) 

600  CONTINUE 

WRITEC*,*)'  ********  RESULT  ********* 

WRITEC*, 605) 

605  FORMAT C / / ) 

WRITEC*, 610)  Y 

610  FORMAT C  *  PERCENTAGE  OF  YES  RESPONSE* ', F5 . 2 ) 

WRITEC*, 620)  N 

620  FORMAT C ’  PERCENTAGE  OF  NO  RESPONSE* ', F5 . 2 ) 

STOP 
END 


PROGRAM  Pas9; { 10/08/’86} 

TYPE 

AccnType  =  record 

Date  :  string  C8i; 

Name  :  string  1 1 2  3 ; 

PassWd  :  string  C71; 

Balance  :  real 
end; 

VAR 

TeapB, Amount  :  real; 

Account  :  AccnType; 

KeyS,TeapD  :  string  C 1 2 ] ; 

Key  :  char; 

I , J,ERR,NoKey  :  integer; 

DataC  :  text; 

BEGIN 

ass ign< DataC, 'datac' ) ; 
re set (DataC) i 

with  Account  do  readln(DataC, Date , Name , PassWd, Balance); 
close (DataC) ; 

wr 1 teln( Account .Date , Account . Name , Account . PassWd, Account . Balance ) ; 

TeapB: -Account .Balance ; 

TeapD : ^Account . Date ; 

for  I:=l  to  10  do  writeln; 

wrlte('  *  Date  :  '); 

readln< Account .Date ) ; 

wr 1 te  < '  *  Name  :  '); 

readln(KeyS) ; 

if  KeyS  <>  Account. Name  then 
begin 

wr 1 te ln(chr <  007 ) , ’  ?!!!  WRONG  NAME,  TRY  AGAIN  !!!!'); 

wr i te  < '  *  Name  :  ’); 

repeat  readln(KeyS)  until  KeyS  =  Account. Name 
end ; 

writeC  *  Password  :  '); 

readln(KeyS) ; 

if  KeyS  <>  Account . PassWd  then 
begin 

writeln(chr(007) , '  !!!!  WRONG  NUMBER,  TRY  AGAIN  !»!!' 

wr i te  ( '  *  Password 

repeat  readln(KeyS)  until  KeyS  =  Account . PassWd 
end; 
clrscr; 

for  I : = 1  to  10  do  writeln; 

wr i teln<  *  *  RECORD  OF  », Account .Name, »  *'); 

writeln; 

writelnC  DATE  of  last  time  :  ’,TempD:9); 

wrltelnC  BALANCE  :  ',  Account .  Balance  :  9 ) ; 

wr l te 1 n ; wr 1 te 1 n  *  wr 1 te 1 n » 

writelnC  --(  HIT  SPACE  TO  CONTINUE  )--'); 

repeat  read(Key)  until  Key  =  ' 

clrscr; 

for  I:=l  to  7  do  writeln; 

wr  1  teln< '  OPTIONS  :’>? 

writeln;wrlteln; 

wrlteln<*  t  +  ]  :  receive  money'); 

wr l te ln< '  [  -  ]  :  deposit'); 

writeln;writeln;wrlte<’  [  *); 

repeat  read(Key)  until  Key  in  C 

wrlte( '  ]  :  ' ) ; 

readln< Amount ) ; 

case  Key  of 


end; 
clrscr ; 

for  I : = 1  to  10  do  wrlteln; 

writeln< ’ 

wrlteln;- 

wr iteln<  * 

wr i telnC ' 

wrlteln; wrlteln; 

writeln< ’ 

END. 


*  RECORD  OF  Account . Name , ’  *') 

DATE  :  ' .Account. Date:9>; 
BALANCE  :  Account . Balance : 9 ) 

**********  THANKS  *******  **') 


1 


Mi 

fV 


C***  PROGRAM  FORTRAN 9  (10/ 22/' 86} 


10 

15 


20 


30 


100 

200 

300 

400 


CHARACTER  KEY 
CHARACTER*?  PASWRD 
CHARACTERS  DATE 
CHARACTER* l 2  NAME , KEYS , DTEMP 
INTEGER  I, J, NUMKEY 

REAL  BALNC, BTEMP , AMNT 


OPEN ( 20 , FI LE= ' DATAC ' ) 

READt 20,10)  DATE 
READ ( 20, 10)  NAME 
READ( 20, 10)  PASWRD 
READ <20, 15)  BALNC 
FORMAT(A) 

FORMAT <F8 . 2) 

WRITE< *, *)  DATE, NAME, BALNC 

BTEMP=BALNC 

DTEMP*DATE 

WRITE<*»  *)  '  * 

READ( *,10)  DATE 
WRITE( *, *)  '  * 

READ( *, 10)  KEYS 
IF  (KEYS  .NE.  NAME)  THEN 
WRI TE< *, *)  '  !  ! 

GOTO  20 
END  IF 

WRITE(*,*)  '  * 

READ( *,10)  KEYS 
IF  (KEYS  .NE.  PASWRD)  THEN 
WRI TE( *,  *)  '  !  ! 

GOTO  30 
END  IF 

WRI TE( * , *)  '  - 


DATE  :  ' 

NAME  :  ' 

WRONG, PLEASE  REENTER  !!' 

PASSWORD  :  * 

WRONG, PLEASE  REENTER  !!' 


WRITE(*,*>  '  *  DATE  OF  LAST  ENTER  :  DTEMP 
WRITE( *,  *)  ’  *  BALANCE  :  BALNC 
WRI  TE(  * ,  *  )  '  . - . . 


WRITE(*, *)  ’ 

WRI TE( *, *)  ' 

*  OPTIONS 
[ 

•  f 

1  1 

. 

RECEIVE  MONEY 

WRI TE( *, *)  ’ 

[ 

0  1 

: 

DEPOSIT' 

WRITE( *, *)  ’ 

--> 

READ( *, *)  NUMKEY 
READ(*,15)  AMNT 
IF  (NUMKEY)  100,200,300 
BALNC>BALNC-AMNT 
GOTO  400 

BALNC*BALNC*AMNT 


WRI  TE(  * ,  * )  '  - ' 

WRITE(*»  *)  '  *  RECORD  OF  ’.NAME,'  *' 

WRITE(*, *)  '  DATE  :  '.DATE 

WRITE(*, *)  '  BALANCE  :  ’.BALNC 

WRITE(*,*)  '  *************  THANKS  *************' 

STOP 

END 
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